home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog6.arj / MENCOLS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  1.2 KB  |  58 lines
  1. { mencols.pas -- Demonstrate columnar menus. (Not in book.) }
  2.  
  3. program Mencols;
  4.  
  5. {$R mencols.res}
  6.  
  7. uses WinTypes, WinProcs, WObjects;
  8.  
  9. const
  10.  
  11.   id_Menu = 100;
  12.  
  13. type
  14.  
  15.   MencolsApplication = object(TApplication)
  16.     procedure InitMainWindow; virtual;
  17.   end;
  18.  
  19.   PMencolsWindow = ^MencolsWindow;
  20.   MencolsWindow = object(TWindow)
  21.     constructor Init(AParent: PWindowsObject; ATitle: PChar);
  22.   end;
  23.  
  24.  
  25. {----- MencolsApplication methods -----}
  26.  
  27. {- Initialize MencolsApplication object's window }
  28. procedure MencolsApplication.InitMainWindow;
  29. begin
  30.   MainWindow := New(PMencolsWindow, Init(nil, 'Columnar Menus'))
  31. end;
  32.  
  33.  
  34. {----- MencolsWindow methods -----}
  35.  
  36. {- Construct MencolsWindow object }
  37. constructor MencolsWindow.Init(AParent: PWindowsObject; ATitle: PChar);
  38. begin
  39.   TWindow.Init(AParent, ATitle);
  40.   Attr.Menu := LoadMenu(HInstance, PChar(id_Menu))
  41. end;
  42.  
  43. var
  44.  
  45.   MencolsApp: MencolsApplication;
  46.  
  47. begin
  48.   MencolsApp.Init('MencolsApp');
  49.   MencolsApp.Run;
  50.   MencolsApp.Done
  51. end.
  52.  
  53.  
  54. {--------------------------------------------------------------
  55.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  56.   Revision 1.00    Date: 10/05/1991
  57. ---------------------------------------------------------------}
  58.